﻿Public Class sfaccess

    Private Sub flaccess_FormClosing(sender As Object, e As FormClosingEventArgs) Handles Me.FormClosing
        My.Settings.Reload()
        My.Settings.Save()

    End Sub

    Private Sub flaccess_Load(sender As Object, e As EventArgs) Handles MyBase.Load


    End Sub

   
    Private Sub ButtonX1_Click(sender As Object, e As EventArgs)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("Options All -Indexes")
        Me.Close()

    End Sub

    Private Sub ButtonX2_Click(sender As Object, e As EventArgs)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("Options All +Indexes")
        Me.Close()
    End Sub

    Private Sub CloudButton1_Click(sender As Object, e As EventArgs) Handles CloudButton1.Click
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("Options All -Indexes")
        Me.Close()
    End Sub

    Private Sub CloudButton2_Click(sender As Object, e As EventArgs) Handles CloudButton2.Click
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText(Environment.NewLine)
        htaccess.RichTextBox1.AppendText("Options All +Indexes")
        Me.Close()
    End Sub
End Class